This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

unique(acc$DRUNK_DR)

[1] 1 0 2 3

why hispanic col? Not treating ethnicity here as a contributing factor

Lot of factors here, this is going to be a lot of dummy cols….

drivers3 %>% select(-class) %>% dummy_cols(remove_selected_columns = T)

Error: vector memory exhausted (limit reached?)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBpcyBhbiBbUiBNYXJrZG93bl0oaHR0cDovL3JtYXJrZG93bi5yc3R1ZGlvLmNvbSkgTm90ZWJvb2suIFdoZW4geW91IGV4ZWN1dGUgY29kZSB3aXRoaW4gdGhlIG5vdGVib29rLCB0aGUgcmVzdWx0cyBhcHBlYXIgYmVuZWF0aCB0aGUgY29kZS4gCgpgYGB7cn0KYWNjID0gcmVhZF9jc3YoJ2FjY2lkZW50LmNzdicpICAKdmVoID0gcmVhZF9jc3YoJ3ZlaGljbGUuY3N2JykKcGVyID0gcmVhZF9jc3YoJ3BlcnNvbi5jc3YnKQpkcnUgPSByZWFkX2NzdignZHJ1Z3MuY3N2JykKCmBgYAoKYGBge3J9CmFjYyAlPiUgZ3JvdXBfYnkoRFJVTktfRFIpICU+JSBjb3VudCgpCnVuaXF1ZShhY2MkRFJVTktfRFIpCgoKYWNjICU+JSBsZWZ0X2pvaW4odmVoLCBieSA9ICIiKQpgYGAKCmBgYHtyfQojaW50ZXJzdGluZyBpbiB0aGUgcGVvcGxlIGRyaXZpbmcgdGhlIHZlaGljbGUgdGhhdCBjcmFzaGVkCmRyaXZlcnMgPSBwZXIgJT4lIGZpbHRlcihQRVJfVFlQID09IDEpCmBgYAoKYGBge3J9Cm5yb3coYWNjKQoKYWNjX2RyaXZlcnMgPSBhY2MgJT4lIGxlZnRfam9pbihkcml2ZXJzLCBieSA9ICdTVF9DQVNFJykKCmFjY19kcml2ZXJzICU+JSBzZWxlY3QoRFJVTktfRFIsIERSSU5LSU5HKQoKYWNjX2RyaXZlcnMgJT4lIGZpbHRlcihNQUtfTU9EID09IDc0ODIpCmBgYApgYGB7cn0KbmFtZXMoYWNjKQpuYW1lcyhkcml2ZXJzKQoKI2ZpbmRpbmcgcmVwZWF0IGNvbHMgaW4gYm90aCBkYXRhc2V0cwpuYW1lcyhkcml2ZXJzKSAlaW4lIG5hbWVzKGFjYykKCiN0aGVzZSBjb2xzIGFyZSBub3QgaW4gYWNjaWRlbnRzLmNzdiAKZHJpdmVyc1ssNTo3XQpkcml2ZXJzWywyNzoxMjZdCgoKZGlzdGluY3RfZHJpdmVyX2NvbHMgPSBiaW5kX2NvbHMoZHJpdmVyc1ssNTo3XSxkcml2ZXJzWywyNzoxMjZdKQoKI3RoaXMgaXMgbm93IHRoZSBkcml2ZXIgZHMgd2l0aG91dCBkaXN0aW5jdCBmZWF0dXJlcyB0byBhZGQgdG8gYWNjaWRlbnRzCmRyaXZlcnMyID0gYmluZF9jb2xzKGRyaXZlcnNbLDNdLCBkaXN0aW5jdF9kcml2ZXJfY29scykKCiNkYXRhc2V0IG5vdyB0byByZWZpbmUgZm9yIG1vZGVsCmRyaXZlcnMzID0gYWNjICU+JSBsZWZ0X2pvaW4oZHJpdmVyczIsIGJ5ID0gIlNUX0NBU0UiKQoKYGBgCgpgYGB7cn0KI3JlbW92aW5nIHRoZSAiX19OQU1FIiBjYXRlZ29yaWNhbCB2YXJzIiAKZHJpdmVyczMgPSBkcml2ZXJzMyAlPiUgc2VsZWN0KC1lbmRzX3dpdGgoJ25hbWUnLCBpZ25vcmUuY2FzZSA9IFRSVUUpKQoKZHJpdmVyczMgPSBkcml2ZXJzMyAlPiUgcmVuYW1lX2FsbChmdW5zKHRvbG93ZXIoLikpKQoKI2NyZWF0aW5nIGNsYXNzIHRvIHByZWRpY3QgCmRyaXZlcnMzID0gZHJpdmVyczMgJT4lIG11dGF0ZShjbGFzcyA9IGlmZWxzZShkcnVua19kciA+IDAsIDEsMCkpICU+JSByZWxvY2F0ZShjbGFzcykKCiNjb2x1bXNuIHRvIGNvbnZlcnQgdG8gZmFjdG9yOiAKZHJpdmVyczMgPSBkcml2ZXJzMyAlPiUgc2VsZWN0KGNsYXNzLCBzdGF0ZSwgc3RfY2FzZSwgdmVfdG90YWw6cGVyc29ucyxjb3VudHk6cm91dGUsdHdheV9pZCxydXJfdXJiLGZ1bmNfc3lzOnNwX2p1cixoYXJtX2V2OnNjaF9idXMsZmF0YWxzLHN0cl92ZWgsbWFrZTpyb2xsb3ZlcixpbXBhY3QxOmFpcl9iYWcsZWplY3Rpb246ZXh0cmljYXQsZHJ1Z3M6ZHJ1Z19kZXQsZHN0YXR1cyxob3NwaXRhbDpsYWdfaHJzLGxhZ19taW5zOmd2d3JfdG8pCgojdGVzdGluZyBsYXBwbHkgdG8gY29udmVydCBmaXJzdCAzIGNvbHMgdG8gZmFjdG9yCmRyaXZlcnMzW25hbWVzKGRyaXZlcnMzKVsxOjNdXSA9IGxhcHBseShkcml2ZXJzM1tuYW1lcyhkcml2ZXJzMylbMTozXV0sIGZhY3RvcikKCiMgZG8gaXQgYWdhaW4hCmRyaXZlcnMzW25hbWVzKGRyaXZlcnMzKVsxMToyMF1dID0gbGFwcGx5KGRyaXZlcnMzW25hbWVzKGRyaXZlcnMzKVsxMToyMF1dLCBmYWN0b3IpCgpkcml2ZXJzM1tuYW1lcyhkcml2ZXJzMylbMjE6MzhdXSA9IGxhcHBseShkcml2ZXJzM1tuYW1lcyhkcml2ZXJzMylbMjE6MzhdXSwgZmFjdG9yKQoKZHJpdmVyczNbbmFtZXMoZHJpdmVyczMpWzQwOjg1XV0gPSBsYXBwbHkoZHJpdmVyczNbbmFtZXMoZHJpdmVyczMpWzQwOjg1XV0sIGZhY3RvcikKCiN0aGlzIGlzIG5hc3R5IC0gbm90IGJlc3QgcHJhY3RpY2UgZm9yIGNvbnZlcnRpbmcgdGhlc2UgY29scywgcmV2aXNpdCBhbmQgZG8gdGhpcyBpbiBtb3JlIGNsZWFuIGZhc2hpb24KYGBgCgp3aHkgaGlzcGFuaWMgY29sPyBOb3QgdHJlYXRpbmcgZXRobmljaXR5IGhlcmUgYXMgYSBjb250cmlidXRpbmcgZmFjdG9yCmBgYHtyfQpkcml2ZXJzMyA9IGRyaXZlcnMzICU+JSBzZWxlY3QoLWhpc3BhbmljKQoKZHJpdmVyczMgPSBkcml2ZXJzMyAlPiUgcmVsb2NhdGUoZmF0YWxzKSAlPiUgcmVsb2NhdGUgKGNsYXNzLHN0X2Nhc2UpCmBgYAoKTG90IG9mIGZhY3RvcnMgaGVyZSwgdGhpcyBpcyBnb2luZyB0byBiZSBhIGxvdCBvZiBkdW1teSBjb2xzLi4uLgpgYGB7cn0KZHJpdmVyczMgJT4lIHNlbGVjdCgtY2xhc3MpICU+JSBkdW1teV9jb2xzKHJlbW92ZV9zZWxlY3RlZF9jb2x1bW5zID0gVCkKYGBgCgo=